home
***
CD-ROM
|
disk
|
FTP
|
other
***
search
/
BBS Toolkit
/
BBS Toolkit.iso
/
pc_board
/
pcbmail1.zip
/
PCBMAIL.PPS
< prev
next >
Wrap
Text File
|
1993-06-01
|
2KB
|
76 lines
STRING PromptText, Text, Report, WantIt, Aborted
STRING Prompt676, Prompt677, Prompt679, Prompt680, Prompt685, Prompt686
INTEGER Prompt
Text = "" ; Clear it for later tests
PromptText = "" ; Clear it for later tests
WantIt = "Y" ; Assume a Default
GETTOKEN Prompt ;
GETTOKEN PromptText ;
FOPEN 1, PPEPATH()+PPENAME()+".CNF", O_RD, S_DN
FGET 1, Report
FGET 1, Aborted
FGET 1, Prompt676
FGET 1, Prompt677
FGET 1, Prompt679
FGET 1, Prompt680
FGET 1, Prompt685
FGET 1, Prompt686
FCLOSE 1
;PRINTLN Prompt
IF (Prompt = 676) THEN
PRINTLN Prompt676
ELSEIF (Prompt = 0) THEN
NEWLINE
INPUTYN Report, WantIt, DEFCOLOR()
NEWLINE
IF (!WantIt = "Y") THEN
FCREATE 1, "ABORTQWK", O_WR, S_DB
FCLOSE 1
ELSE
PRINTLN Prompt676
END IF
ELSE IF (Prompt = 677) THEN
IF (EXIST("ABORTQWK")) THEN
DELETE "ABORTQWK"
IF (Aborted <> "") THEN
PRINTLN Aborted
LOG Aborted, 0
END IF
ELSE
PRINTLN Prompt677
END IF
ELSE IF (Prompt = 679) THEN
PRINTLN Prompt679
ELSE IF (Prompt = 680) THEN
Text = Prompt680
ELSE IF (Prompt = 685) THEN
Text = Prompt685
ELSE IF (Prompt = 686) THEN
Text = Prompt686
END IF
IF (Text = "") THEN
WRUSYS
ELSE
RDUSYS
IF (EXIST("PCBMAIL.TXT")) THEN
FOPEN 1, "PCBMAIL.TXT", O_RD, S_DN
Report = "-"
WHILE (Report <> "") DO
FGET 1, Report
IF (Report <> "") PRINTLN Report
END WHILE
FCLOSE 1
DELETE "PCBMAIL.TXT"
END IF
PRINTLN
PRINTLN Text
IF (PromptText = "") LOG Text, 0
END IF
END